home *** CD-ROM | disk | FTP | other *** search
/ DOpus Plus / DOpus Plus.iso / Themes / Amiga / Aliens.theme next >
Encoding:
Text File  |  1998-10-27  |  3.4 KB  |  79 lines
  1. /* D5THEME
  2.  
  3.    Aliens.theme by Trevor Morris - 1998
  4.  
  5.    Directory Opus Magellan II Theme File
  6. */
  7.  
  8. parse arg dopus_port apply_flags
  9. if dopus_port='' then
  10.     dopus_port='DOPUS.1'
  11. address value dopus_port
  12.  
  13. if apply_flags='' then
  14.     apply_flags='PFBS'
  15. else
  16.     apply_flags=upper(apply_flags)
  17.  
  18. options results
  19. options failat 21
  20.  
  21. /* Set background pictures */
  22. if index( apply_flags , "B") ~= 0 then do
  23.     dopus  set  background on
  24.     dopus clear background desktop
  25.     dopus  set  background "'DOplus:Themes/Amiga/Aliens/Screens/'" desktop precision image border off
  26.     dopus  set  background "'DOplus:Themes/Amiga/Aliens/Patterns/Marble.iff'" lister tile precision image border off
  27.     dopus  set  background "'DOplus:Themes/Amiga/Aliens/Patterns/WhiteMarble.iff'" req tile precision exact border off
  28. end
  29.  
  30. /* Set sound events */
  31. if index( apply_flags , "S") ~= 0 then do
  32.     dopus  set  sound "'Bad disk inserted'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Default.snd'" 64
  33.     dopus  set  sound "'Close buttons'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Open.snd'" 64
  34.     dopus  set  sound "'Close group'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Open.snd'" 64
  35.     dopus  set  sound "'Close lister'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Open.snd'" 64
  36.     dopus  set  sound "'Disk inserted'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Twinkle.snd'" 64
  37.     dopus  set  sound "'Disk removed'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Drama.snd'" 64
  38.     dopus  set  sound "'FTP close connection'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Beep.snd'" 64
  39.     dopus  set  sound "'FTP connect fail'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Suspence.snd'" 64
  40.     dopus  set  sound "'FTP connect success'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Ring.snd'" 64
  41.     dopus  set  sound "'FTP copy fail'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Exclamation.snd'" 64
  42.     dopus  set  sound "'FTP copy success'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Elevator.snd'" 64
  43.     dopus  set  sound "'FTP error'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Error.snd'" 64
  44.     dopus  set  sound "'Hide'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Hiss.snd'" 64
  45.     dopus  set  sound "'Open buttons'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Restore.snd'" 64
  46.     dopus  set  sound "'Open group'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Restore.snd'" 64
  47.     dopus  set  sound "'Open lister'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Restore.snd'" 64
  48.     dopus  set  sound "'Reveal'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Warning.snd'" 64
  49.     dopus  set  sound "'Shutdown'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_ShutDown.snd'" 64
  50.     dopus  set  sound "'Startup'" "'DOplus:Themes/Amiga/Aliens/Sounds/Alien_Startup.snd'" 64
  51. end
  52.  
  53. /* Set fonts */
  54. if index( apply_flags , "F") ~= 0 then do
  55.     dopus set font screen "'XHelvetica.font'" 11
  56.     dopus set font listers "'XEN.font'" 8
  57.     dopus set font iconsd "'XEN.font'" 8
  58.     dopus set font iconsw "'RSansSerif.font'" 8
  59. end
  60.  
  61. /* Set colour settings*/
  62. if index( apply_flags , "P") ~= 0 then do
  63.     dopus set pens icons 8 1 3 1 12 2
  64.     dopus set pens files 1 0
  65.     dopus set pens dirs 10 0
  66.     dopus set pens selfiles 1 8
  67.     dopus set pens seldirs 1 9
  68.     dopus set pens devices 10 0
  69.     dopus set pens assigns 1 0
  70.     dopus set pens source 1 11
  71.     dopus set pens dest 1 12
  72.     dopus set pens gauge 11 13
  73.     dopus set pens user 5
  74.     dopus set palette 0x969696 0x000000 0xFFFFFF 0x3C65A2 0xA29282 0xAD4DB2 0xE7AA55 0xD75959 0xB4E494 0xC8FC00 0x004C94 0xFCFCD4 0xD8D8D8 0x183454 0xE8E8E8 0x505050
  75. end
  76.  
  77. /* Refresh Opus */
  78. dopus refresh all
  79.